Top 10k strings from Stars Spectrum - Utilidades - Issue 01 (1984)(Stars)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
2 s$;" caracteres"
2 piv=a(i,i)
2 MATES
2 ;"************ MATES *************"
2 ;"*** STARS ** STARS ***";
2 ;" PULSA UNA TECLA PARA CONTINUAR ":
2 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
1 x,y;a$;" ":
1 temp=a(i,m):
1 t$="Sistema de Ecuaciones"
1 t$="Matrices"
1 spnsh.data
1 s$="pulsa una tecla para continuar"
1 s$="Una vez tengas grabada en la cinta la ru-tina, podras aplicarla en tus programas , teniendo en cuenta el poner un RAMTOP ade-cuado antes de cargarla en el ordenador,esdecir:"
1 s$="Para darte una prueba de la po-tencia de esta aplicacion,cuenta los espacios ocupados por las letras de una fila. En esta fra-se utilizamos los 32 caracteres por linea (corresponde a f=8)"
1 s$="Frase de prueba"
1 s$=" Una vez hecho esto, el sistema de uso esmuy sencillo, en primer lugar, deberas de-finir las variables X e Y ( con valores entre 0 y 250 y entre 0 y 170 respectiva- mente) lo que te proporcionara la posicionen pantalla de la primera letra del texto."
1 s$=" Deberas teclear para cargar la rutina : - CLEAR 32079:LOAD """" CODE
1 s$=" Ahora podras notar que los caracteres porlinea han aumentado, saliendo 42 columnas aplicando valor 6 a la variable f."
1 s$=" Posteriormente, daras a ""f"" el valor quequieras(6 a 15),y ya solo te restara defi-nir s$ que es la variable alfanumerica quecontiene el texto y ejecutar mediante: RANDOMIZE USR 32080 SI TIENES DUDAS,CONSULTA EL LISTADO*STARS"
1 s$=" Para poder utilizar esta aplicacion, bastara con que salves el codigo maquina, pulsando - SAVE ""condens"" CODE 32080,514 -"
1 q=a(i,m+n)/p
1 piv=a(k,i)
1 piv=a(i,j)
1 p=a(new,m+n)
1 p=a(m,m+n)
1 n$=" "+n$(
1 det=det*a(i,i+n):
1 condens
1 a(new,m)=temp:
1 a(m,f+n)=a(m,f+n)+a(new,f+n):
1 a(k,j)=a(k,j)-piv*a(i,j)
1 a(i,m)=a(new,m):
1 a(i,k)=a(i,k)-piv*a(j,k)
1 a(i,k)<0.001
1 a(i,k)+" ":
1 a(i,j+n)=a(i,j+n)-q*a(m,j+n)
1 a(i,j+n)=a(i,j)
1 a(i,j+n)=0
1 a(i,j)=a(i,j+n)
1 a(i,j)=a(i,j)/piv
1 a(i,i+n)=1
1 Variable no definida
1 UN MOMENTO POR FAVOR
1 Subindice ma
1 Sin sentido en BASI
1 Sentencia STOP
1 Sentencia RETURN sin GO SUB correspondiente
1 Sentencia NEXT sin el FOR
1 Salto a un comando que ya no se encuentra
1 STOP en una entrada de datos
1 STARS UTILIDADES N. 1
1 Reclamo de una funcion no definid
1 RAMTOP no valido
1 Programa bloquead
1 PARA EL CASSETTE
1 Operacion I/O no valida
1 Numero muy grande
1 Nombre de fila no valid
1 No hay memori
1 Memoria insuficiente para nueva line
1 Interrupcion de la operacio
1 IN- FORMES
1 Fuera campo
1 Fin de DATAS
1 Fin archivo
1 Error de parametro
1 Error de carga-programa en el cassett
1 Entero fuera rang
1 Encontrados mas FOR que NEX
1 El canal de datos es invalido
1 ESP.DATA
1 Color no valido
1 CONDENSADOR CARGANDO
1 CONDENS
1 Argumento no valido
1 ;"y = ";f$
1 ;"x";i;" = ";a(i,n+1
1 ;"paso de integracion = ":
1 ;"parrafo con ";
1 ;"limite superior x = ":
1 ;"limite inferior x = ":
1 ;"ej.: y = 3*x+2"
1 ;"de la Matriz nxn :"
1 ;"a(n1)*x1 + a(n2)*x2 ..= bn"
1 ;"a(n1) a(n2) .. a(nn)"
1 ;"a(21)*x1 + a(22)*x2 ..= b2"
1 ;"a(21) a(22) .. a(2n)";
1 ;"a(11)*x1 + a(12)*x2 ..= b1";
1 ;"a(11) a(12) .. a(1n)";
1 ;"a(";i;j;") = ":
1 ;"SELECCIONA OPCION ->"
1 ;"Real: ";i
1 ;"Real: ";d;
1 ;"Real: ";c;
1 ;"Real: ";b-
1 ;"Real: ";b+
1 ;"Real: ";2
1 ;"Raiz Triple: ";-b:
1 ;"Raiz Real: ";f+g-b
1 ;"Raiz Doble: ";b
1 ;"Raiz Doble: ";-f-b
1 ;"Pulsa una tecla para continuar":
1 ;"Parte Real: ";b;
1 ;"Parte Real: ";-.5
1 ;"Parrafo con ";
1 ;"PULSA UNA TECLA"
1 ;"PON EN MARCHA EL CASSETTE"
1 ;"PARA EL CASSETTE"
1 ;"No Tiene Solucion":
1 ;"Metodo de Simpson -";
1 ;"Inversa y Determinante";
1 ;"Integral = ";c
1 ;"Integracion Aproximada"
1 ;"Imaginaria: +/- ";y:
1 ;"Imaginaria: +/- ";h*
1 ;"Entra la funcion en x ";
1 ;"Entra Orden n (2-5) -> "
1 ;"Ecuacion de 3er Grado";
1 ;"Ecuacion Cuadratica";
1 ;"Determinante = ";det
1 ;"Axxx + Bxx + Cx + D = 0"
1 ;"Axx + Bx + C = 0"
1 ;"5 INTEGRACION"
1 ;"4 MATRICES";
1 ;"3 ECUACION DE TERCER GRADO";
1 ;"2 ECUACION CUADRATICA";
1 ;"1 SISTEMA DE ECUACIONES";
1 ;"-> No Tiene Inversa"
1 ;" . . . . . .";
1 ;" . . . . . ."
1 ;" . . .";
1 ;" b";i;" = "
1 ;" HEMOS PREPARADO ESTA APLICA- CION PENSANDO ESPECIALMENTE EN VOSOTROS, CREYENDO QUE OS PUEDE SER DE GRAN UTILIDAD TANTO A LA HORA DE RESOLVER VUESTROS PRO- BLEMAS MATEMATICOS, COMO EN CU- ANTO A CAPACIDAD Y DESARROLLO DELAS FUNCIONES DEL SPECTRUM."
1 ;" EL PROGRAMA ESTA ESPECIALMEN-TE DISE_ADO PARA LA RESOLUCION DE SISTEMAS DE ECUACIONES, ECUA-CIONES DE SEGUNDO Y DE TERCER GRADO, MATRICES E INTEGRACION APROXIMADA POR EL METODO DE SIMPSON."
1 ;" ";
1 ;" ";
1 ;" "
1 ;" ";:
1 00000000000000000000000000000000
1 ...................
1 ..........
1 *a*a*a+e*e
1 *STARS*STARS*STARS*STARS*STARS*
1 );"a(";i;j;")"
1 '"EL PROGRAMA VIENE PREPARADO PARAEL ORDENADOR DE 48 K"
1 '" STARS TE OFRECE CON ESTE PRO-GRAMA LA OPORTUNIDAD DE ""CASTE-LLANIZAR"" TU ZX SPECTRUM"
1 '" LA ULTIMA EXPRESION QUE APARE-CE EN PANTALLA, VIENE DADA POR-QUE EN LA LINEA 9999 HEMOS DIS-PUESTO QUE SE""PRINTEE"" LA VARIA-BLE var LA CUAL NO HA SIDO DEFI-NIDA."
1 '" A PARTIR DE ESTE MOMENTO, TU SPECTRUM EMITIRA TODOS LOS
1 " y = ";
1 (Apendice B del manual deusuario) EN CASTELLANO"